COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		TITLE KBSCAN
C00003 ENDMK
C⊗;
	TITLE KBSCAN
	AC←1
	INTERNAL KBS

KBS:	0		;CHR = KBS
	PTJOBX [0 ↔ 3]	;SET LINE
	INCHRW AC	;INPUT CHR

	
	CAIN AC,"A"	;IF IT IS A NOTE
	OUTCHR ["C"]	;THEN TYPE NOTE CHR

	CAIN AC,"S"	;IF IT IS A NOTE
	OUTCHR ["B"]	;THEN TYPE NOTE CHR, ETC.


	PTJOBX [0 ↔ 4]	;RESET LINE
	
	MOVEM AC,@(16)	;RETURN WITH IT
	JRA 16,1(16)	;YOU MIGHT WANT TO RETURN
			;WITH THE CHANGED CHR OR
			;TURN IT IN TO FORTRAN A4 FORMAT
	END